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ABSTRACT 

The  push  button  telephone  has  been  employed  in  many  systems  as  a  computer 
terminal  with  a  very  restricted  capability  and  in  at  least  one  instance  as  a  com- 
puter terminal  for  a  general  purpose  programming  language    This  thesis  discusses 
the  input,  output,  coding,  and  decoding  problems  when  considering  a  general 
purpose  programming  language  for  use  with  a  push  button  telephone,,     Included  is 
a  general  discussion  of  a  system  that  would  use  a  syntactic  analysis  and  the  context 
of  a  programming  language  to  produce  a  code  for  use  with  a  push  button  telephone. 
The  output  from  this  analysis  would  be  used  to  build  a  table-driven  translator  to 
decode  the  language0    An  example  of  such  a  system  is  also  included. 
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Ie    INTRODUCTION 

The  computer  terminal  of  recent  years  has  been  some  form  of  the  common 
teletypwriter0    This  sort  of  device  is  economically  practical  where  it  serves  a 
large  number  of  users,  but  for  the  individual  its  cost  precludes  widespread  use. 
The  cost  of  such  devices  may  be  reduced  significantly  in  the  future,  but  it  is  hard 
to  visualize  a  terminal  that  will  be  economically  acceptable  to  the  general  user. 
The  expense  of  such  a  device  will  prevent  private  use  for  all  but  a  select  few.    An 
obvious  answer  for  the  general  computer  user  is  to  employ  the  telephone  in  a 
secondary  role  as  a  computer  terminal  0 

Access  to  the  computer  through  the  telephone  will  surely  not  appeal  to  all 
users.    The  obvious  use  would  be  in  providing  "desk  calculator"  type  services. 
The  company  or  university  with  an  existing  computer  facility  could  provide  such 
services  at  a  nominal  additional  cost.    Computer  services  could  be  sold  to  the 
general  public  on  a  timed  basis  just  as  long  distance  telephone  service  is  sold. 
Martin    [  Ref .  1  1    predicts  that  this  public  use  of  the  computer  will  have  a  profound 
effect  on  the  computer  industiy. 

The  traditional  telephone  with  a  circular  dial  does  not  lend  itself  to  use  as  an 
input  device.    The  additional  time  and  inconvenience  required  to  dial  a  nine  as 
compared  to  a  one,  would  disgruntle  the  most  patient  user.    The  telephone  com- 
panies of  this  nation  have  provided  a  device  far  superior  in  speed  and  acceptability. 
The  "push  button"  or  "Touch-Tone"  telephone  is  being  introduced  to  more  areas 


each  year  I  Ref0  2  J  0    These  push  button  telephones  significantly  enhance  the 
acceptability  of  the  telephone  as  a  computer  terminal  6 

The  telephone  has  already  been  used  as  a  computer  terminal  on  many  remote 
access  computing  systems  C  Ref  0  3  7  <,    Information  retrieval  systems  that  provide 
such  services  as  stock  market  quotations  and  inventory  availability  have  appeared 
in  recent  years „     Experiments  have  also  been  conducted  with  systems  that  offer  a 
simple  computing  capability  similiar  to  that  of  a  "desk  calculator"  [  Ref  „  4  ~]  . 
These  systems  in  general  require  a  limited  input  and  response  capability  and  have 
a  well  defined  input  and  output  formatc    The  coding  and  decoding  of  a  general 
purpose  programming  language  for  input  via  a  push  buiton  telephone  presents  a 
more  formidable  problem,,    This  research  was  directed  at  problems  of  this  nature. 
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The  realization  of  a  natural  language  processor  will  some  day  make  the  tele- 
phone a  very  attractive  input  device,,    If  the  computer  could  "understand"  spoken 
text,  then  the  primary  input  capability  of  the  telephone  would  make  it  desirable 
as  a  computer  terminal  0    Communication,  however,  is  limited  by  the  intelligence 
of  the  least  participant,  and  so,  until  the  computer  can  converse  reasonably  well, 
the  secondary  input  capability  of  the  telephone  will  provide  the  only  possible 
alternative,,    The  problem  of  input  then  becomes  one  of  coding  a  set  of  approxi- 
mately fifty  characters  into  a  code  alphabet  of  twelve  characters.    The  fifty 
characters  allow  for  the  twenty-six  letters  of  the  alphabet,  ten  digits  and  sixteen 
special  characters,  such  as  ; ,  *,  -,  etc 

The  push  button  telephone  offered  by  the  common  carriers  in  the  United  States 
is  a  twelve  buiton  device „    The  general  appearance  of  a  push  button  keyboard  is 


given  in  Figure  1  „    The  original  push  button  telephones  were  ten  button  devices, 
but  were  designed  on  a  four  by  three  array  with  positions  four-one  and  four-three 
blank.    The  two  additional  buttons  have  been  added  to  the  keyboard  as  a  "no  cost 
option"  [  Ref  „  4  1  „    These  two  additional  buttons  greatly  simplify  the  input  coding 
schemes  o 

The  alphabetic  synonyms  assigned  to  each  push  button  of  the  telephone  add 
nothing  to  the  information  transmission  of  each  key,  but  then  do  serve  a  useful 
purpose,,    Originally  these  letters  served  to  aid  in  remembering  a  central  office 
code,  making  the  memorization  of  telephone  numbers  easier,,    They  could  serve 
the  same  purpose  when  considering  a  programming  language  codec    The  user  would 
not  be  required  to  remember  that  code  "77468"  represented  the  word  "PRINT"  „ 
The  relative  Ircrficr.  of  the  letter;  on  the  keys  could  also  assist  in  the  codina 
scheme  of  a  full  alphabetic  input,,    For  example,  the  code  "12"  could  represent 
the  first  letter  on  the  second  keyc    The  letters  "Q"  and  "Z"  were  omitted  from  the 
telephone  dial  originally  because  there  were  no  central  office  names  that  began 
with  these  letters,,    They  would  obviously  be  required  for  some  programming 
languages „    For  purposes  of  this  study,  they  were  considered  to  be  added  to  key 
"O"0    This  leaves  the  two  keys  "*"  and  ""f"  for  special  functions  alone,  and  this 
appears  to  be  their  best  logical  usec 

The  code  word  lengths  are  an  important  part  of  any  coding  scheme „    Consider- 
ing an  information  source  of  approximately  fifty  characters  and  a  code  alphabet 
of  twelve  characters,  code  word  lengths  equal  to  or  greater  than  two  will  satisfy 
the  conditions  of  the  Kraft  inequality  (Kraft  1949)  CRef.  5  3a    Therefore  there 
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exists  a  unique  coding  scheme,  using  two  code  characters  per  source  character. 
The  use  of  the  context  of  a  programming  language  will  however  allow  a  signi- 
ficant reduction  in  the  average  length  of  a  code  word,  and  this  reduction  should 
be  a  primary  objective „ 

Physically,  the  input  would  be  accepted  by  an  audio  response  unit  at  the 
computer  facility,  which  would  relay  the  digital  information  to  the  central  pro- 
cessort  Ref0  6  3.    The  actual  processing  would  then  be  handled  by  an  incremental 
compiler  or  translator  that  would  respond  to  special  codes  from  the  usere    (See 
Figure  2) 

B.    OUTPUT 

The  audio  response  equipment  mentioned  above  is  also  capable  of  generating 
verbal  messages.    The  audio  output  section  operates  trom  a  prerecorded  vocab- 
ulary, which  may  be  changed  or  expanded  to  a  limited  degree „    A  coded  message 
from  the  computer  causes  the  proper  selection  of  words  from  the  vocabulary,  and 
the  response  unit  sends  the  verbal  output  to  the  conventional  telephone  receiver. 
The  telephone  can  thus  provide  a  limited  output  capability  at  no  additional  cost 
to  the  individual  user0 

Output  should  also  be  handled  through  the  normal  installation  facilities,,    The 
user  would  select  this  type  of  output  and  his  job  would  be  placed  in  the  normal 
job  stream „    To  take  the  best  advantage  of  the  system,  the  initial  translation 
should  still  be  on  a  line-by-line  basis  with  audio  response,,    This  would  allow 
en*or  detection  and  correction  before  placing  the  job  in  the  normal  job  stream. 


It  can  be  shown  that  many  such  schemes  exist, 


C.    OBJECTIVES 

Corne'll  University  has  implemented  a  remote  access  computing  system  that 
employs  push  button  telephones  as  terminals  [  Ref  e  4  J  „    The  system  is  based  on 
CUPL,  which  is  a  batch  processing  system  used  for  introductory  instruction  at  the 
university  0    To  transfer  the  system  to  another  location  would  require  the  introduc- 
tion of  the  programming  language  CUPL  or  the  adaptation  of  the  concepts  of  the 
system  to  a  new  language 0    This  would  be  rime  consuming  and  costly  0    Instead  of 
such  an  adaptation,  it  was  felt  that  a  generalized  system  could  be  designed  that 
would  automatically  build  a  decoder  for  a  push  button  telephone  system 0    Figure  2 
is  a  flow  chart  showing  where  such  a  system  would  fit  into  a  computer  processing 
network  e    The  main  objective  of  this  research  project  was  to  design  and  test  such 

r\    tvcfam 
-      -  ,  -•  -  - 

In  design  of  the  system,  it  was  decided  that  as  large  a  class  of  languages  as 
possible  should  be  acceptable  for  analysis 0    This  dictated  that  generality  must  be 
preserved  wherever  possible,,    The  system  was  also  to  produce  an  average  code 
word  length  as  small  as  possible  in  order  to  minimize  the  button  pushing  required 
of  the  user0    Context  was  to  be  used  in  pursuing  this  objective,  and  a  two-key 
code  for  each  input  character  was  to  be  considered  only  as  a  last  resort. 
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II .    GENERAL  DISCUSSION 

The  description  of  the  computing  system  given  in  Figure  2  includes  the  push 
button  telephone  translating  system  at  a  level  above  the  programming  language 
it  is  processing c    Tho  output  from  the  language  analysis  is  corrected  prior  to 
considering  the  problems  of  the  push  button  telephone  coding  scheme  and  is  used 
in  building  the  compiler  (or  translator)  for  the  language,,    At  this  level,  the  output 
from  the  push  button  telephone  translator  is  the  source  statement  of  the  program- 
ming language  in  question,,    This  output  must  be  channeled  to  the  language  compiler 
for  final  processing  0    It  appears  that  the  two  analysis  steps  could  be  combined  to 
perform  an  analysis  directed  at  the  language  problems  and  the  push  button  tele- 
phone coding  problems  simultaneously,,    This  v/ould  lead  to  a  combined  translator- 
compiler  and  would  produce  a  more  efficient  total  system. 

There  is  also  a  possibility  of  additional  use  of  the  language  analysis  to  improve 
on  the  push  button  coding  scheme0    The  decoding  of  a  statement  such  as  "GO  TO" 
might  automatically  indicate  that  a  line  number  must  be  the  next  input.    The 
system  could  then  go  directly  into  a  number  decoding  scheme  without  a  special 
number  indicator,,    This  sort  of  refinement  would  depend  heavily  upon  the  parti- 
cular programming  language „ 

The  problems  of  the  push  button  telephone  coding  scheme  are  of  prime  concern 
when  considering  a  programming  language  specification  procedure,    A  major 
problem  area  of  a  push  button  telephone  coding  scheme  lies  in  the  ambiguous 
transmission  associated  with  each  digital  input„    To  maintain  an  average  code 
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word  length  as  small  as  possible,  a  method  to  determine  that  a  "2"  is  not  an  "A" 
or  "B"  or  "C"  is  necessary  0    The  context  of  the  programming  language  provides 
such  a  method 0    Also  the  context  of  a  particular  character  in  a  terminal  part  of 
a  language  must  be  considered  for  the  push  button  telephone  coding  scheme 0    To 
illustrate,  a  particular  coding  scheme  could  produce  the  code  "367"  for  the  word 
"FOR"  and  code  "363"  for  the  word  "END",    The  "36"  taken  in  context  with  the 
"7"  or  "3"  v/ould  provide  the  necessary  information  for  proper  decoding. 

The  method  used  to  specify  a  particular  programming  language  obviously  plays 
an  important  part  in  all  the  analysis  procedures  for  the  language.    A  syntactic 
description  of  a  language  provides  a  good  method  to  examine  the  context  of  the 
language  and  also  to  determine  the  terminal  parts  of  the  language.    Syntax  exam- 
:r:at:cr:  therefore  provides  n  g^^  rr.^hrw!  for  nn<;h  button  telephone  codina 
analysis.    Although  no  exhaustive  study  was  performed,  it  appears  that  the 
attempt  to  make  this  sort  of  analysis  using  any  other  type  of  language  specification 
would  prove  exceedingly  difficult. 

Coding  of  character  strings  (comments,  headings,  print  strings,  etc.)  for  a 
push  button  telephone  system  requires  a  special  coding  system  within  the  program 
language  coding  systerru    This  system  must  allow  for  the  coding  of  the  full  alpha- 
bet, as  well  as  special  characters  and  numbers,.    The  numbers  and  special  charac- 
ters can  be  decoded  normally,  but  the  alphabetical  characters  must  be  recognized 
individually  since  no  contextual  information  would  be  available.    A  likely  method 
for  this  operation  is  to  transfer  control  to  a  special  decoding  section  for  character 
string  decoding.    The  transfer  would  be  caused  by  recognition  of  a  special 
character,  and  the  special  decoding  scheme  would  be  specified  by  the  user. 

13 


There  are  many  of  these  special  decoding  schemes,  but  those  that  use  the  tele- 
phone key  board  to  aid  in  remembering  the  code  would  appear  to  be  the  preferred 
systems  o 

Inherent  to  the  push  button  telephone  coding  scheme  are  certain  special  codes 
which  the  user  must  define  and  input  to  the  analyzer.    These  are  parts  of  the 
coding  scheme  that  are  considered  necessary  to  any  system  and  must  receive 
special  consideration  in  the  analysis  and  the  translation  phases.    An  example 
would  be  the  "space  designation",  which  is  usually  a  part  of  any  programming 
language,,    Since  the  "space  bar"  would  not  be  available  on  a  push  button  tele- 
phone, a  special  code  must  represent  the  space  in  the  programming  language. 
This  is  in  line  with  the  overall  concept,  as  the  transmission  of  a  space  over  the 
tc> c>^i >Ci*iC  rr.'+s'1  be  QCCOmDiisnea         r^mc*  cc,-n;or,ro  c-,f  crioroif*^'3!^      AdrMfjrsrsn! 
features  such  as  an  end-of-Iine  designation  or  re-start  capability  would  also  be 
required  and  could  also  be  defined  as  special  parts  of  the  coding  scheme. 

The  variable  introduces  a  unique  coding  problem,,    A  full  alphabetic  coding 
scheme  could  be  used  to  allow  complete  generality  of  variable  coding.    Where 
this  flexibility  in  variables  is  not  required,  a  restricted  system  is  much  more 
efficient.    A  variable  designation  parameter  would  provide  such  a  system.    One 
designation  would  be  used  to  denote  all  variables,  and  the  variables  would  be 
distinguished  by  their  assigned  number.    An  obvious  choice  for  the  variable 
designation  parameter  would  be  the  letter  "V".    This  would  allow  the  assignment 
of  variables  in  the  sequence  VI,  V2,  V3ocooVn,  where  n  is  restricted  only  by 
the  computer  the  translator  will  run  on. 
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The  input  scanning  operation  of  a  working  translator  could  operate  character- 
by-character  or  be  keyed  to  some  other  character  set  determination 0    The  char- 
acter-by-character scanning  would  require  that  all  prefixes  be  eliminated  from 
the  programming  language.    This  would  be  necessary  to  insure  that  a  word  such 
as  "GO"  (code  "46")  would  not  be  decoded  from  the  word  "INT"  (code  "468"). 
This  restriction  could  prove  quite  severe  in  some  languages.    The  proper  use  of 
the  characters  "*"  and  "*"  eliminates  this  problem.    These  characters  can  be 
used  in  the  programming  language  to  break  the  input  number  codes  into  subsets 
for  decoding  while  serving  as  code  characters  for  parts  of  the  programming 
language „    This  approach  appeai-s  to  be  the  most  fruitful  . 

Response  for  the  pushbutton  telephone  system  could  be  handled  through  dif- 

fa.ro, it-  .^ifKc    (Eln  r    ?)  Hpr-.pnH-nn  i:nnn  fh<=>  rr,nnn<;p  rpniiirnd-     The   loon  from  the 

telephone  through  the  translator  to  the  incremental  compiler,  and  back,  would 
provide  the  "desk  calculator"  service  mentioned  earlier,,    Line-by-line  execution 
and  even  short  program  execution  would  be  handled  by  this  loop0    Response  for 
error  detection  could  be  between  the  telephone  and  the  translator  for  errors  in 
the  push  button  telephone  coding .    An  error  in  the  programming  language  might 
not  be  detectable  by  the  push  button  telephone  translator,,    The  incremental 
compiler  would  detect  the  error  and  initiate  the  error  message,,    For  a  longer 
program  with  delayed  output,  a  direct  translation,  store  and  input  to  job  stream 
could  be  provided,  but  would  not  take  full  advantage  of  the  system „    The  incre- 
mental compiler  in  the  sequence  would  provide  immediate  error  correction  on  a 
large  percentage  of  the  program  errors „    In  this  respect,  the  push  button  telephone 
system  could  increase    the  efficiency  of  the  total  computing  facility. 
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111.    TELE-CODER 

The  Tele-Coder  is  a  system  which  analyses  a  programming  language  for  accept- 
ability of  input  through  a  push  button  telephone  and  builds  a  translator  to  decode 
the  inputo    There  are  two  main  sections  to  the  system,  the  analyzer  and  the  trans- 
lator, which  are  both  written  in  STANFORD  ALGOL  W  (Version  21  NOV1969). 
The  analyzer  reads  a  grammar  in  Backus  Naur  Form         (BNF)  and  analyses  it  for 
problems  in  coding  the  language  into  a  set  of  twelve  characters 0    The  analyzer 
output  is  then  used  to  build  a  translator  for  the  language „     Figure  3  is  a  flow  chart 
showing  the  use  of  the  Tele-Coder,, 

The  Tele-Coder  will  analyze  any  context-free  language 0    Any  context-free 

grammar  can  be  written  in  BNF  and  this  is  a  requirement  for  the  input  to  the 

3 
analyzer.       This  type  of  input  was  chosen  because  it  covers  a  large  class  of 

languages  and  provides  an  explicit  description  of  the  language  in  compact  form0 

Also,  this  method  of  describing  a  language  has  found  widespread  use  in  recent 

years  and  is  familiar  to  most  computer  scientists. 

A.    THE  ANALYZER 

A  sample  input  to  the  analyzer  is  shown  in  appendix  A0  There  are  three  main 
parts  to  the  input;  the  array  sizes,  the  language  syntax  and  the  user  defined  para- 
meters o 


Also  called  Backus  Normal  Form 
3 


A  good  illustration  of  the  use  of  BNF  to  specify  a  context-free  grammar  is  given 
in[Ref0  7l 
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There  are  two  array  size  numbers  required,  and  these  are  used  to  dynamically 
allocate  space  for  storage  of  the  user  defined  parameters  and  the  phrases  of  the 
grammar,,    The  first  of  these  numbers  is  used  for  the  grammar  and  does  not  have  to 
be  exact  but  must  be  greater  than  the  number  of  phrases  in  the  grammar,,    The 
second  number  is  the  exact  number  of  user  defined  parameters c 

The  grammar  input  follows  a  form  similar  to  that  used  For  the  XPL  system 
C  Ref  0  7  J   0    The  BNF  metasymbols  ::=,  |  ,  ( ,  and  )  are  used  to  break  the  pro- 
ductions into  left  parts  followed  by  a  list  of  right  parts,,    The  input  to  the  analyzer 
does  not  require  the  use  of  the  metasymbol    )  ,  or  the  use  of  the  symbol  ::=.    The 
only  restrictions  on  the  input  are  as  follows: 
1  „    There  must  be  only  one  production  per  input  carde 

9        Tlioro  p-jiict  be   onlv   onp  rsnnf-  nnrt  nnr  rnrri  . 

30    The  left  part  must  start  in  column  one0 
A  left  part  is  not  required  for  every  input  card.    When  the  left  part  is  omitted, 
the  input  is  assumed  to  be  a  right  part  alternative  to  the  most  recent  left  part. 
The  grammar  input  is  terminated  by  a  card  containing  "EOG"  beginning  in  column 
one0 

There  are  seven  required  user  defined  parameters 0  These  form  the  final  input 
to  the  analyzer  and  they  must  be  in  a  strict  format  and  sequence,,  (See  appendix 
A0)  None  may  exceed  five  characters  in  length  and  codes  for  special  characters 
must  be  two  characters,,  Additionally,  the  special  character  represented  must  be 
included  in  the  fifth  column  of  the  input  string „  The  input  strings  must  also  be 
enclosed  in  double  quotation  marks  (i„e0  ")„  The  input  ordering  of  the  seven 
required  parameters  is  as  follows: 
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lc  space  designation 

20  number  designation 

3„  variable  designation 

40  end  of  line  designation 

50  character  string  designation 

6„  quote  string  designation 

70  re-start  designation 

The  distinction  between  the  character  string  and  quote  string  designation  is  that  the 

character  string  refers  to  program  comment  strings  and  the  quote  string  is  used  for 

data  type  "character  strings"  0    If  either  designation  is  not  required,  "NO"  may 

be  input  for  parameter  five  and/or  sixc 

In  analysis  of  the  grammar,  special  characters  are  first  determined 0    These 

include  any  characters  which  are  not  members  of  the  alphabet  or  the  integers. 

They  are  assigned  a  code  in  the  sequence  *0,  *l/ooco/  *9,  $0  f  "] ,  000  o,^9f  **, 

*w     ntt     w*  nnH  ctorf=(H  for  nut  nut  tn  bf>  iKnrl  bv  the  translator-    Codes  assianed  in 
it  .1  # 

the  user  defined  parameters  section  are  checked  to  assure  that  no  conflicting 
assignments  are  made0    The  number  of  special  character  codes  required  may  not 
exceed  twenty-four,,    The  total  number  of  special  character  codes  assigned  is  also 
output  for  use  by  the  translator 

After  completion  of  the  special  character  coding,  reserve  words  are  determined 
and  stored  for  coding 0    Reserve  words  are  terminal  parts  of  the  programming  lan- 
guage in  question,  and  must  be  uniquely  recognizable  in  the  decoding  process 0 
The  coding  of  these  v/ords  consists  of  the  mapping  of  the  letters  of  the  word  onto 
the  key  numbers  of  the  push  button  telephone  keyboard 0    Conflicts  may  appear  in 
this  coding  and  they  must  be  resolved  by  the  user„    For  example,  the  words  "IF" 
and  "GE"  would  produce  the  number  code  "43"  0    This  problem  could  be  resolved 
by  using  the  code  "GEQ"  in  place  of  "GE"0    The  translator  would  then  recognize 
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code  "430"  ("GEQ")  as  "GE"  so  the  original  language  would  be  preserved  0    The 
number  of  reserve  words  is  also  tabulated  for  later  use  by  the  translator. 

The  output  from  the  user  defined  parameter  section,  the  special  character 
section,  and  the  reserve  word  section  combine  to  make  up  the  total  input  to  the 
translator 0    The  analyzer  presently  provides  a  printed  output  which  must  be  pre- 
pared for  input  to  the  translator.    The  provision  of  a  punched  card  output  from  the 
analyzer  would  speed  up  the  total  process  but  was  not  considered  necessary  to  the 
study. 

B.    THE  TRANSLATOR 

The  function  of  the  translator  is  to  accept  information  from  the  analyzer  and 
use  this  to  build  a  decoder  for  the  programming  language  processed.    A  sample 
input  ro  rhe  rransiutor  is  shownin  appendix  B0 

The  input  to  the  translator  also  requires  two  array  upper  bounds.    The  first  of 
these  is  the  number  of  special  characters,  and  this  is  followed  by  the  number  of 
reserve  words.    These  numbers  provide  for  dynamically  allocated  storage  in  the 
translator.    The  additional  input  consists  of  the  user  defined  parameters,  the  reserve 
v/ords  and  their  coding,  and  the  special  characters  and  their  coding,,    With  the 
full  input,  the  translator  becomes  a  working  model  and  is  ready  to  accept  coded 
input  from  a  push  button  telephone. 

The  input  scanning  of  the  translator  depends  heavily  upon  the  characters  "vr" 
and  "*" .    These  are  used  to  break  the  input  number  codes  into  subsets  for  decoding. 
The  use  of  these  characters  in  forming  the  special  character  codes  places  them  in 
the  programming  language  where  they  may  be  used  to  serve  this  purpose  with  no 
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extra  effortc    Where  two  number  codes  fall  adjacent,  the  space  designation  must 
be  used  to  provide  the  necessary  break  0 

The  variable  designation  is  not  decoded  to  the  specific  input  character  by  the 
translator  but  instead  always  decodes  to  the  letter  "V"0    This  is  not  a  requirement 
but  was  chosen  for  convenience 0    This  method  also  serves  to  illustrate  the  efficient 
use  of  a  digit  that  is  not  used  as  the  beginning  of  a  reserve  word  code0    In  one 
language  used  in  testing,  no  reserve  words  began  with  the  letters  "Q"  or  "Z"e 
This  allowed  the  use  of  the  digit  "O"  as  the  variable  designation  and  so  a  two 
character  code  was  not  requiredc    Since  the  digit  "1"  is  not  associated  with  another 
character  or  letter,  it  is  always  available  for  this  type  of  use„ 

The  character  string  and  quote  string  options  in  the  translator  are  dependent 
on  a  fun  alphabet  coding  scheme  desijj'uru  '.„  !!!^_/..cic  this  type  cf  coding,,    The 
scheme  is  based  on  the  alphabetic  character  location  on  the  push  buttons 0      The 
code  requires  two  characters  per  alphabetic  character,,    The  first  character  is 
simply  the  push  button  number  on  which  the  alphabetic  character  appears.    The 
second  character  is  determined  by  the  relative  position  of  the  alphabetic  character 
on  the  push  button,,    The  alphabetic  character  will  appear  in  the  "first",  "middle" 
or  "last"  position,.    (See  figure  1  e)    This  position  and  the  row  of  the  first  code 
character  determines  the  second  character,,    The  number  "4"  represents  the  "first" 
position  for  row  two  and  the  number  "6"  represents  the  "last"  position  for  that  row. 
For  example,  the  code  for  the  letter  "L"  is  "56"  and  code  for  the  letter  "X"  is 
"98" 0    Letters  "Q"  and  "Z"  are  assumed  to  appear  on  push  button  "O"  and  the 
"middle"  position  of  this  key  is  not  usede 

This  schema  is  similar  to  the  one  given  in  Ref„  1  „ 
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Error  analysis  for  the  translator  is  handled  primarily  in  one  subroutine,,    When 
an  un-decodable  sequence  of  characters  is  encountered,  a  message  particular  to 
the  area  where  decoding  was  in  process  is  first  output 0    Control  is  then  transferred 
to  the  error  handling  routine  and  the  characters  successfully  decoded  to  the  point 
of  the  error  are  output,,    Analysis  to  determine  the  sequence  of  non-decodable 
characters  is  also  outputo    Finally,  the  line  of  code  containing  the  error  is  dis- 
carded and  control  returned  to  the  main  program 0 

Ce  TESTING 

The  implementation  of  the  Tele-Coder  was  directed  at  demonstrating  the  theory 
of  such  a  system  and  to  allow  study  of  the  various  aspects  of  the  system.    Testing 
of  a  specific  concept  was  considered  adequate  when  a  valid  result  was  obtained, 
and  no  attempt  was  made  to  optimize  the  procedure  in  question,    Auu'iiiouu! 
testing  and  a  period  of  evolution  would  be  required  to  produce  a  good  production 
model  of  the  system. 

Two  programming  languages  were  used  to  test  the  analysis  portion  of  the  Tele- 
Coder.    The  two  languages  were  BASIC  and  BALGOL,  and  were  chosen  because  they 
represent  a  significant  programming  capability  and  provided  a  good  overall  test 
of  the  system.    The  description  of  the  syntax  for  BASIC  was  taken  from  Ref.  80 
The  syntax  specification  for  BALGOL,  which  is  a  version  of  a  student  language 
written  using  the  XPL  system,  was  available  from  the  writing  of  the  language.    In 
both  cases,  the  changes  required  to  make  the  language  acceptable  for  input  over 
a  push  button  telephone  were  minor  and  there  was  ample  room  for  expansion,  should 
more  powerful  language  be  considered.    The  sample  output  from  the  analyzer  in- 
cluded in  this  paper  is  from  the  analysis  of  BASIC. 
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The  output  from  the  analysis  of  BASIC  was  used  to  build  and  test  the  translator. 
The  telephone  input  to  test  the  translator  was  simulated  by  standard  punch-card 
input,  and  the  result  of  this  testing  is  shown  as  the  output  from  the  translator. 
The  significant  features  of  the  system  are  demonstrated  by  this  output,,    A  com- 
parison of  some  of  the  features  can  give  insight  into  some  of  the  concepts  of  the 
system0    The  character  string  feature  (output  line  1)  is  a  good  example  of  the 
inefficiency  of  a  coding  scheme  using  no  contextual  information 0    Output  line 
four  uses  context  to  reduce  the  average  code  word  length 0    This  reduction  is 
obvious  and  significant  when  the  two  lines  are  compared  0    The  advantageous 
segmantation  of  the  code  by  the  special  characters  is  also  quite  obvious 0    The 
final  lines  of  output  were  used  to  test  and  demonstrate  the  error  detecting  capa- 
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IV.    CONCLUSION 

The  Analyzer  has  demonstrated  the  feasibility  of  a  system  for  analysis  and 
coding  of  certain  programming  languages  for  use  with  a  push  button  telephone. 
The  Translator  has  demonstrated  the  use  of  this  analysis  tc  produce  a  translator 
for  decoding  the  programming  language,,    The  Tele-Coder  then  is  a  system  that 
could  be  developed  into  an  aid  that  could  greatly  enhance  the  use  of  the  push 
button  telephone  as  a  computer  terminal  c 
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APPENDIX  A 


*  INPUT  TO  ANALYZER  * 


185 
7 

<PRCGRAV  SET>   ::=  <PROGRAM> 

<PRCGP£M  SET>*<PROGRAM> 
<PRCGRAM>   ::=   <STATEMENT  SET>  <END  STATEMENT> 
<STATFMENT  SET>   ::  =   <STATEMENT> 

<STATEMENT  SET>  <STATEMENT> 
<END  STATEMEMT>   ::  =   <LIMF  OPTION>ENC 
<STATEMENT>   ::=   <LINE  OPTION>  <BASIC  STATEM£NT> 

<EMPTY> 
<LINE  OPTIOM>   ::=   <INTEGER> 

<EMPTY> 
<INTEGER>   ::=   <DIGIT> 

<INTEGER>  <DIGIT> 
<EMPTY>   ::= 
<DATA  L1ST>   ::=   <DATA  ELEMENT> 

<DATA  LIST>  ,  <DATA  ELEMENT> 
<ALPHA  VAPIABLE>   ::  =   <VARIAbLE  ASSIGN> 

<ALPHA  DATA> 
<NUMERIC  DATA>   ::=   <SIGNED  NUMBER> 

<NUMBER> 
<SIGNED  NUMBER>   ::  =   <SIGN>  <NUMBER> 
<SIGN>  - ' =   + 

<NUMBER>   ::  =   <iNTEGER> 

<FRACTION> 

<DECIf'AL  NUMRFR> 
<FPACTICN>   ::=   0<INTEGER> 

<DECIMAL  NUMBER>   ::=   <INTEGER>  <FRACTION> 
<ALPHA  DATA>   ::  =   •<STRING>1 
<STRING>   ::=   <CHARACTER> 

<STRING>  <CHARACTER> 
<CHARACTER>   ::=   <DIGIT> 

<ALPHA  CHARACTER> 

<SPFCIAL  CHARACTER> 

<EMPTY> 
<DIGIT>   ::=   0 

1 

2 

3 

4 

5 

6 

7 

8 

9 
<ALPHA  CHARACTER>   ::=   A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 
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N 
0 
P 
Q 
R 
S 
T 
U 
V 

w 

X 
Y 
Z 
<SPECIAL  CHARACTER   :  :=   = 

+ 

/ 

( 
) 

o 

1 

$ 

f 

<BASIC  STATEMENT>   ::=   <REMARK> 
<LET> 
<REA0> 
<DATA> 
<PRINT> 
<G0  T0> 
<IF> 
<FOR> 
<NEXT> 
<DIMENSION> 
<GOSUB> 
<RETURN> 

<STOP> 

<PESTORE> 
<REMARK>   ::=   REF<CHARACTER  SET> 
<CHARACTER  SET>   ::=   <STRING> 

<CHARACTEP  SET>  ■  <CHARACTER  SET> 
<LET>   ::=   LEKLET  STATEMENT> 
<LET  STATEMENT>   ::  =   <LET  ALPHA> 

<LET  NUMERIO 
<LET  ALPHA>   ::=   <ALPHA  ASSIGM>  =  <ALPHA  EXPRESSICN> 
<ALPHA  ASSIGi\>   ::  =   <ALPHA  VARIABLE> 

<ALPHA  ASSIGN>  =  <ALPHA  VARIABLE> 
<ALPHA  EXPRESSION   ::=  <ALPHA  OATA> 

<ALPHA  VARIABLE> 
<LET  NUMERIO   ::=   <VAR TABLE  ASSIGNS  =  <EXPRESSICN> 
<VARIABLE  £SSIGN>   ::=   <VARIABLE> 

<VARIABLE  ASSIGN>  =  <VARIABLE> 
<VARIABLE>   ::=   <SIMPLE  VARIABLE> 

<SUBSCRIPTED  VAPIABLE> 
<SIMPLE  VARIABLE>   ::=   <ALPHA  CHARACTERS 

<ALPHA  CHARACTEP>  <DIGIT> 
<SUBSCRIPTED  VARIABLE>   ::=  <ALPHA  CHARACTERX<SUBSCP  I PT  LIS 
<SUBSCRIPT  LIST>   ::=   <EXPRESSION> 

<EXPRESSION>  ,  <EXPRESSIGN> 
<DATA  ELEMENT>   ::=   <NU.MERIC  DATA> 
<EXPRESSIGN>   ::=   <MULTIPLY  FACTQP> 

<SIGN>  <EXPRESSICN> 

<EXPRESS1GN>  <SIGN>  <MULTIPLY  FACTOR> 
<MUL1IPLY  FACTGR>   ::=   <INV0LUT ION  FACTOR> 

<MULTIPLY  FACTOP>  <MULTIPLY  SIGN>  INVOLUTION  FACTO 
<INVGLUTION  FACTOR>   ::=   <TERM> 

<TERM>**<TERM> 
<MULTIPLY  SIGN>   ::=   * 

/ 
<TERM>   ::=   <NUMBER> 

<VARIASLE> 
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<<EXPRESSION>) 

<FUNCTICN  TERM> 
<FUNCTION  TERM>   ::=   <FUNCT  I  ONX<EXP.r<ESS  ION>  ) 
<FUNCTICN>   ::=   SIN 

COS 

TAN 

ATN 

EXP 

ABS 

LOG 

SQR 

INT 

RND 


<READ> 
<RLAD  LIST> 


<READ 


<DATA> 
<PRINT 
<PRINT 

<PRINT 


<GO  TO 
<IF> 

<RELAT 


READ<READ  LIST> 
:  :=   <REAO  VARIABLE> 
<REAO  LIST>  ,<RESD  VARIABLE> 
VARIABLE   ::=   <ALPHA  VARIABLE> 
<VAPIABLE> 
::=   DATA<DATA  L I ST> 
>   ::=   PRINT<PRINT  LIST> 
LIST>   ::=   <PRINT  ELEMENT> 

<PRINT  LIST>  ,<PRINT  ELEMENT> 
ELEMEMT>   ::=   <EMPTY> 
<ALPHA  VARIABLE> 
<VARIABLE> 
<EXPRESSIGN> 
< ALPHA  CATA> 
TAB(<EXPRESSION>) 
::=   GO  TC<INTEGER> 
::=   IF<EXPRESSIGN>  <RELATIOIM>  <EXPRESSION> 
ICN>   ::=   GT 
GE 
LT 
LE 
NE 


> 


THEN  <INTE 


<STEP 

<NEXT> 
<DIMEN 
<CIMEN 

<DIMEN 
<EXTEN 

<GOSUB 
<RETUP 
<STOP> 
<PAGE> 
<RESTO 

EOG 
"** 

"1 
"0 

"## 

"ALPHA 
«*5  • 
"#* 


OPTIC 
ST 

s  ion> 

SICN 

<D 
SION 
T>  : 
<I 
>  :  : 
N>   : 


FOR<  c 

N>   :  : 
EP 


LI 
IM 
VA 

NT 


'<EX 
NEX 

•  •  — 

ST> 

ENS 
RIA 

< 
EGE 
GO 

R 
STO 


T  m  p  i  r 
=  <E 
RESSI 
<SIMP 
D  I  M< 

ON*  LI 

LE> 
NTEGE 
>  »<I 

UPXIN 
TURN 


V .'. 
MPT 
0N> 
LE 
D I  M 

<D 
ST> 


RIABLE>  = 

Y> 


< I  XPRESSION> 


<H  X!'H>  S.S 


RE> 


S 
E 
P 
E 

::=   RESTORE 
RESTCRE$ 


R> 

NTE 

TEG 


VARIABLE> 
ENSION  LIST> 
IMENSION  VARIABLE> 
,  <DIMENSIGN  VARIABLE> 
<ALPhA  CHARACTERX<EXTENT>) 

GER> 
ER> 
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APPENDIX  B 


***********************************  ****** 

*  * 

*  * 

*  INPUT  TO  TRANSLATOR  * 

*  * 

*  * 

*********#**:£*****#********************** 


11 

35 
it** 

"## 

"1 

"0 

"25742 
n*5 

"#* 

ALPHA 

25742 

END 

363 

REM 

736 

LET 

538 

SIN 

746 

CCS 

267 

TAN 

A  -r  ;. : 
/->•.* 

286 

EXP 

397 

ABS 

227 

LOG 

564 

SQR 

7C7 

INT 

468 

RND 

763 

READ 

7323 

DATA 

3282 

PRINT 

77468 

TAB 

822 

GO 

46 

IF 

43 

THEN 

8436 

GT 

48 

GE 

430 

LT 

58 

LE 

53 
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NE 

63 

FCR 

367 

TO 

86 

STEP 

7837 

NEXT 

6398 

DIM 

346 

GOSUB 

46782 

RETUPN 

738876 

STOP 

7867 

PAGE 

724  3 

RESTORE 

7378673 

u+*2' 

o*4' 

111*51 

'=*6' 
/*7' 
t*8' 
)*9« 

$#0' 
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OUTPUT  FROM  ANALYZER 


PRODUCTIONS  IN  BNF 

*************  -.v  ********************************************************** 

Program  set)  .:=  Program) 

i  ^program  set^^program) 

Program)  ::=  (Statement  set)  (end  statement) 

Statement  set)  ::=  (statement) 

I    (statement  set)  (statement) 

<£nd  statement)  ::=  <line  option>end 

Statement)  :.=  (line  option)  (basic  statement) 

I    (EMPTY) 

<!  IMF  OPTION}    :;=   (iNTFGFR) 
i   OEMPTY) 

(INTEGER)    ::=   (DIGIT) 

|    <INTEGER>    <blGIT> 

<EMPTY)   ::= 

(DATA  LIST)    ::=   <DATA  ELEMENT) 

I    <DATA  LIST)  ,  {DATA  ELEMENT) 

<ALPHA  VARIABLE)  ::=  {VARIABLE  ASSIGN) 

|    <ALPHA  DATA) 

(NUMERIC  DATA)  ::=   <$IGNED  NUMBER) 

|     (NUMBER) 

{SIGNED  NUMBER)   ::=  CsIGN       NUMBER) 

£lGN>    ::=     + 


<NUMBER)    ::=  ^INTEGER) 
<FRACTION) 
(DECIMAL  NUMEER) 
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Fraction)  ::-  .  integer) 

(decimal  number)  ::=  (integer)  (fraction) 

^\lphadata>  ::=  '(string)' 

(string)  ::=  character) 

|  (string)  (character) 

character)  ::=  (digit) 

(alpha  character) 
(special  character) 

(EMPTY) 


(DIGIT)    ::-    0 

1 

2 

3 

4 

5 

6 

7 

8 
i    ^ 

I     7 

(BASIC  STATEMENT)    ::=   (REMARK) 

(LET) 
(READ) 
(DATA) 
(PRINT) 
(GO  TO) 
(IF) 
(FOR) 
(NEXT> 
(DIMENSION) 
(GOSUB) 
RETURN) 
<PAGE> 
(STOP) 
(RESTORE) 

(REMARK)    ::=    REM<CHARACTER  SET) 

(CHARACTER  SET)    ::=    (STRING) 

|    (CHARACTER  SET)   '    (CHARACTER  SET) 
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<ALPHA  CHARACTER 


(SPECIAL  CHARACTER) 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 

w 

V 

J  \ 

Y 
Z 


+ 
* 

/ 

( 


<LET>     ::=     LET<LET  STATEMENT) 
(LET  STATEMENT)    :: 


<LET  ALPHA) 
<LET  NUMERIC) 


<LET  ALPHA)   ::=     <ALPH A  ASSIGN)  =  (ALPHA  EXPRESSION) 
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(alpha  assign)    ::=  {alpha  variable) 

i    (alpha  assign)  =  (alpha  variable) 

4\lpha  expression)  ::=   <alpha  data) 

i    (alpha  variable> 

<let  numeric)   ::=  <variable  assign)  =  (expression) 

(variable  assign)   ::=   (variable) 

i    (variable  assign)  =  (variable) 

Variable)  ::=   (simple  variable) 

I    subscripted  variable) 

<SIMPLE  VARIABLE)     ::=    (ALPHA  CHARACTER) 

I     (ALPHA  CHARACTER)   <t>IGlT) 

(SUBSCRIPTED  VARIABLE)     ::=     (M.PHA  CHARACTER)  (  SUBSCRIPT  LIST)  ) 

(SUBSCRIPT  LIST)     ::=     {EXPRESSION) 

I     (EXPRESSION)    ,  (EXPRESSION) 

{DATA  F1  FMENT)     ::=     (NUMERIC  DATA) 

(EXPRESSION)     ::=    (MULTIPLY  FACTOR) 

(SIGN)  (EXPRESSION) 
(EXPRESSION)  (SIGN)  (MULTIPLY  factor) 

(multiply  factor)   ::=  (involution  factor> 

|    (multiply  factor)  (multiply  sign) (involution  factor) 

{Involution  factor)   ::=  {term) 

I     <TERM)**<rERM) 

^MULTIPLY  SIGN)     ::=     * 

I     / 

<TERM)     ::=    (NUMBER) 
(VARIABLE) 
(EXPRESSION)) 
(FUNCTION  TERM) 

(FUNCTION  TERM)     ::=     (FUNCTION)(  (EXPRESSION)  ) 
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^FUNCTION)     ::=     SIN 

COS 
TAN 
ATN 
EXP 
ABS 
LOG 
SQR 
INT 
RND 

<READ>     ::=     READ(READ  LIST) 

(READ  LIST)    ::=     (READ  VARIABLE) 

|     <READ  LIST)    ,  (  READ  VARIABLE) 

<READ  VARIABLE)     ::=    (ALPHA  VARIABLE) 

|     (VARIABLE) 

(DATA)     ::-     DATACDATA  LIST) 

<PRINT)     ::=     PRINT(PRINT  LIST) 


.'  KK  I  f\l  !    !  !  S  !  ) 


<  PR|N  I  Ei  EMENT) 

(PRINT  LIST)   ,    (PRINT  ELEMENT; 


(PRINT  ELEMENT)     ::=    (EMPTY) 

(ALPHA  VARIABLE> 
(VARIABLE) 
(EXPRESSION) 
(ALPHA  DATA) 
TAB((EXPRESSION» 

(GO  TO)     ::=     GO  TO( INTEGER) 

<1F>     ::=     IF(EXPRESSION)  (RELATION)   (EXPRESSION)    THEN  ^INTEGER. 


(RELATION) 


GT 

GE 

LT 

LE 

NE 


<FOR)   ::=    FOR  (SIMPLE  VARIABLE)  .=_  . 
<EXPRESSION>   TO   (EXPRESSION)     (STEPUPIIUnT 


34 


<$tep  option)   ::=  <j5mpty> 

|    step<expression> 

(next)   ::=    next<simple  variable) 

(dimension)    ::=    dim<0imenslon  list) 

{dimension  list)    ::=   (dimension  variable) 

i    (dimension  list)  ,  (dimension  variable 

(dimension  variable)   ::=   <alpha  character)  (  (extent)  ) 

Extent)    ::=  Onteger) 

i    integer)  .(integer) 

(gosub)   ::=   gosub<integer) 

(return)   ::=    return 

<$TOP>     ::=     STOP 
<PAGE)     ::=     PAGE 


<J<hblOKb/      ::=     KtSlORc 
I      RESTORES 
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USER  SPECIFIED  PARAMETERS 

***********  ************************************************************* 

SPACE  DESIGNATION   =   ** 
NUMBER  DESIGNATION   =    1 
VARIABLE  DESIGNATION   =   0 
END  OF  LINE  DESIGNATION   =    ## 
CHARACTER  STRING  DESIGNATION   -   ALPHA 
QUOTE  STRING  DESIGNATION   =    *5     ' 
RESTART  DESIGNATION   =    %* 

NUMBER  OF  PARAMETERS   =  6 
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SPECIAL  CHARACTER  CODING 
****************************************************************** 

SPECIAL  CHARACTER  CHARACTER  CODE 

*  *Q 

+  *2 

*3 

*4 

*5         USER  DEFINED  OPTION 

*6 

/  *7 

(  *8 

)  *9 

$  *0 

**  USER  DEFINED  OPTION 
##  USER  DEFINED  OPTION 
#*         USER  DEFINED  OPTION 

NUMBER  OF  SPECIAL  CHARACTERS   =  14 
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NUMBER  CODING  OF  RESERVE  WORDS 


********* ********************** A ************** ******** ****************** 


RESERVE  WORD 


NUMBER  CODE 


ALPHA 

25742 

END 

363 

REM 

736 

LET 

538 

SIN 

746 

COS 

267 

TAN 

826 

ATN 

286 

EXP 

397 

ABS 

227 

LOG 

564 

SQR 

707 

INT 

468 

RND 

763 

READ 

7323 

DATA 

3282 

PRINT 

77468 

TA  Rf 

•  ■  •  ■  \ 

822 

CHARACTER     ( 

DOES  NOT  CODE 

GO 

46 

IF 

43 

THEN 

8436 

GT 

48 

GE 

43 

USER  DEFINED  OPTION 


NUMBER  CODE  CONFLICT 

IF 

43 

GE 

43 


LT 

LE 

NE 

FOR 

TO 

STEP 

NEXT 

DIM 


58 

53 

63 

367 

86 

7837 

6398 

346 
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GCSUB  46782 

RETURN  738876 

STOP  7867 

PAGE  7243 

RESTORE  7378673 

RESTORES  7378673 

CHARACTER     $     DOES  NOT  CODE 

NUMBER  CODE  CONFLICT 

RESTORE 
7378673 
RESTORES 
7378673 

NUMBER  OF  RESERVE  WORDS     =  36 
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OUTPUT  FROM  TRANSLATOR 


736**2574287454679*  ••'•77786644782164**31 3264666579877821873279**87453225742## 
REM  THIS  PROGRAM  DEMONSTRATES  THE  1 


736**25742336678642187**6633**?1**2221794623**7778644782164**25742## 
REM  FORMAT  OF  A  BASIC  PROGRAM  2 


1100**7323**01* 102* 103## 
100  READ  VI ,  V2,  V3 


-  «  ^  ......  ^>   1  j.  ,  A  r,  -y.  r\r\r)££ 

LET  V4^=V2*V3 


538**05*6*41 14*004## 

LETV5=J4*V4  6 

538**06*604*305## 

LET  V6=V4-V5  7 

43**01*6**02**8436**1200^ 

IF  V1=V2  THEN  200  8 

77468**01* 102*103* 104## 

PRINT  VI,  V2,  V3,  V4  9 

46**86**11 00 ## 

GO  TO  100  10 


538**05*6#* 
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77468*3*5874532**0*88668732**798778466544* 5*9## 

PR1NT('THE  QUOTE  STRING')  11 

3283**  1 1  *  1 1 3*4 150*  1 1 1 00## 

DATA  1,3050,100  12 

1200**363## 

200  END  13 


538#805*6*4114*004## 

—  INVALID  SPECIAL  CHARACTER- 
OUTPUT  TO  THIS  POINT 

LET 
SPECIAL  CHARACTER  #8  DOES  NOT  DECODE 

438**05*6*41 14*004  ## 
INVALID  RESERVE  WORD- 
OUTPUT  TO  THIS  POINT 

WORD  438  DOES  NOT  DECODE 

736 -"2574287254679**77706644732; 64"  ''  C1 326466 657987782! 87227°"*87'15^??^49## 

—  INVALID  ALPHA  CHARACTER- 
OUTPUT  TO  THIS  POINT 

REM  T 
WORD  254679  DOES  NOT  DECODE 

77468*8*5674532**0*88668732**798778466544* 5*9## 

—  INVALID  QUOTE  CHARACTER — 
OUTPUT  TO  THIS  POINT 

PRINTC 
WORD  674532  DOES  NOT  DECODE 

77468*8*6874532**0*88668732**79877846654432*6## 

—  INVALID  RESERVE  WORD 

OUTPUT  TO  THIS  POINT 

PRINT(= 
WORD  874532  DOES  NOT  DECODE 


EOP 
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*  * 
$                                                         * 

*  ANALYZER  * 

*******##*##:<;£*#:£#**##«  ^^st^sje  s*  *  *  A  :£  *  **  ***** 
BEGIN 

INTEGER  I, J,K,L,M,N,SC,PNUM,RWN,X; 

STRINGC130)    PRINT; 

STRING (160)  ARRAY  R(0::30); 

ST  RING (160)  AFRAY  RW(0::50); 

STRING  (SO  SYNTAX; 

STRING(80)  LEFTPART,  RIGHTPART,  SCODE; 

STRING(26 )  ALPHA, ALPHANUMBER; 

STRING(IG)  SNUM; 

STRING(3)  ARRAY  S(C::39); 

STRING* 1  )  ELANK; 

LOGICAL  MOREWCRK,  MOREPRODUCTIONS ,  TERMINAL; 

LOGICAL  FIRST; 

COMMENT   ******************************************** v**** 
EXECUTION    BEGINS    HERE, 

^^^^^.*^*^^:^;^^*^:*^^^^>.^^^^^^^^:^;rt4;^^c^:^t^«4£4:*^c^r5{£;S3j:^^sA^:  • 

ALPHA :=   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; 
ALPHANUMBER:=  "22233344455566670778889990"; 
MGREWORK:=  TRUE; 
KOREPRODUCTIGNS: =  TRUE; 
BLANK:=    "    "; 
REAC(N)  ; 

.->  r  a  n  /  v  1  • 
•  «  <_  •        > 

P  N  u  '  -  —  0 ; 

PR  I  N'T  :=    "    "; 

SNUM:=  "C123456789"; 
WHILE  MORE WORK  DO 
BEGIN 

STRING(160)  ARRAY  PRODUCT  ION ( 1 :: N ) ; 

STR1NG(5)    ARRAY    CPTI 0N(  0 ■: : X ) ; 

COMMENT      ************************************************* 

PROCEDURE  OPTIONS  READS  USER  DEFINED  PARA- 
METERS ANO  STORES  THEM  IN  ARRAY  OPTION.  SEVEN 
PARAMETERS  MUST  BE  INPUT  AND  MORE  MAY  BE 
DEFINED  BY  THE  USER,  IF  THE  CHARACTER  STRING 
OR  CUOTE  STRING  PARAMETERS  ARE  NOT  REQUIRED, 
"NO"  MUST  BE  INPUT  FOR  PARAMETERS  5  AND  6. 
ALL  INPUTS  MUST  BE  LEFT  JUSTIFIED  TO  COLUMN 
CNE  AND  ENCLOSED  IN  QUOTATION  MARKS.  PARA- 
METERS MUST  BE  FIVE  OR  LESS  CHARACTERS  IN 
LENGTH.  USER  CEFIMEC  SPECIAL  CHARACTERS  MUST 
BE  TWO  CHARACTERS  AND  THE  SPECIAL  CHARACTER 
MUST  BE  INPUT  AS  THE  FIFTH  CHARACTER  CF  THE 
PARAMETER.  THE  INPUT  ORDERING  OF  THE  SEVEN 
REQUIRED  PARAMETERS  IS  AS  FOLLOWS: 

(1)  SPACE  DESIGNATION 

(2)  NUMBER  DESIGNATION 

(3)  VARIABLE  DESIGNATION 

(4)  END  OF  LINE  DESIGNATION 

(5)  CHARACTER  STRING  DESIGNATION 

(6)  QUOTE  STRING  DESIGNATION 

(7)  RESTART  DESIGNATION 

*«****--.**  v*** ********************** **^******^:***  ; 

PROCEDURE    OPTIONS; 
BEGIN 
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FOR  I:=  0  UNTIL  (X-l)  DO  REAO ( OPT  ICN ( I ) ) ; 

WRITE( BLANK) ; 

WRITE( BLANK) ; 

WRITECUSER  SPECIFIED  PARAMETERS"); 

WRITE  (  "**X**********X*********#**#**Z*******"  t 
H^  %.  &5~  rft  ;£  ;jc  ^  £  j;^  #  ;)c  3!;  :£  3(r  ^SJjC^r^t  jjfi$c$tt   J    • 

WRITE(BLANK) ; 

WRITECSPACE  DESIGNATION  =  «,  OPT  ION(  C  )  )  ; 

WRITE(BLANK) ; 

WRITE( "NUMBER  DESIGNATION  =  " ,OPT I  ON ( 1 ) ) ; 

WRITE( BLANK) ; 

WRITEC'VARIABLE  DESIGNATION  =  "  ,  OPT  ION(  2  )  )  ; 

WRITEt  BLANK) ; 

WRITEC'END  OF  LINE  DESIGNATION  =  ", OPTION ( 3 )) ; 

WRITEC BLANK) ; 

WRITE("CHARACTER  STRING  DESIGNATION  =  ", 

OPTICNU)); 
WRITE( BLANK) ; 
WRITECGUOTE  STRING  DESIGNATION  =  ", 

OPTION(5) ) ; 
WRITE( BLANK) ; 

WRITE("RESTART  DESIGNATION  =  " t OPT ICN ( 6 )  )  ; 
WRITE( BLANK) ; 
WRITE( BLANK) ; 

WRITE ("NUMBER  OF  PARAMETERS  =  "tX-1); 
END  OPTIONS; 

COMMENT   ****##**##***#****##**#***#*******#**********#*** 

PROCEDURE  LOAD  ACCEPTS  THE  SYNTAX  READ  IN  BY 
THE  MAIN  PROGRAM  AND  LOADS  IT  INTO  THE  ARRAY 
PRODUCTION  FOR  USE  BY  THE  OTHER  SUBROUTINES* 

ocrir  rni  ir  v-     LOAD » 

o  r  r  '  :. ; 

"pnum:=  pmum+1; 
product  ion (pnum) :=  "  "; 

RIGHTPART:=  "  "; 

K:-  -1 ; 

J :  =  r'  * 

IF  SYNTAX(Oll)  =  "<"  THEN 

BEGIN 

LEFTPART:=  «  »: 

WHILE  SYNTAX(Jll)  -*=  ">"  DO 

BEGIN 

LEFTPART( J| 1) :=  SYNTAX(Jll); 

J:=  J  +  l; 

END; 
LEFTPART( J|l) :  =  ">"; 

WHILE  SYNTAX(Jll)  -»=  »  =  »  DO  J:=  J  +  l; 
J:=  J+l; 

WHILE  SYNTAX(Jll)  =  "  "  DO 
BEGIN 

IF  J  <  79  THEN  J:=  J+l 

ELSE  SYNTAX(Jll) :=  "3"; 

END; 
WHILE  (J  <  79)  AND  (K  <  79)  DO 
BEGIN 

K  *  =  K  + 1  " 

RIGHTPART(K| 1)  :=  SYNTAX(J|1); 

J:=  J+l; 

END; 
END  ELSE 
BEGIN 

WHILE  SYNTAX(Jll)  =  "  "  DO  J:=  J+l; 
WHILE  (J  <  79)  AND  (K  <  79)  DO 
BEGIN 

y   «  —   Jc  +  1  * 

RIGHTPART(K| 1) :=    SYNTAX(J|1); 
J:=    J+l; 
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end; 
end; 

IF  SYNTAX(79|1)  *  "3"  THEN  RIGHTPART:=  "  " ; 
PRODUCT  ION ( PNUM)  (0  |8C) :  =  LEFT PART; 
PRODUCT  ION! PNUM) (80  I  80)  :=  PIGHTPART; 
END  LOAD; 

COMMENT   ************************************************* 

PROCEDURE  ECHO  PRINTS  THE  SYNTAX  IN  A  STANDARD 
FORMo 

**#**************£*£*****************:>;  **********  ; 

PROCEDURE  ECHO( INTEGER  VALUE  I); 
BEGIN 

FOR  J:=  1  UNTIL  I  DO 
BEGIN 

PRINT:=  "  "; 

K :  =n>  * 

WHILE  PRODUCTION!  J)(K|  I)  -.=  ">"  DO 

BEGIN 

PRINT(K|15:=  PRODUCTION! J) (K|i) ; 
K "  =  K  + 1  * 

IF  K  >  79  THEN  GO  TO  NEXT; 
END; 
PRINT (K 18) :=  ">   : :=   "; 
K:=  K+l; 
L:=  K  +  7; 
N:=  L; 

WHILE  PRODUCTION! J) (K|l)  =  "  »  DO 
BEGIN 

IF  K  <  159  THEN  K:=  K+l 

ELSE  PRODUCT  ION ( J)  (K|l ) : =  "3"; 

end; 
if  production! j) (k i  1)  =  "3"  then 

ccr.ni 

PRODUCT  ION<  J  MK|1  )'.=    "    "  ; 
K:=    L-7; 

end; 
for  m:=  k  until  159  do 

BEGIN 

PRINT! L I  1)  :=  PRODUCT  ION ( J ) (M|l )  ; 

L:=  L+l; 

IF  L  >  129  THEN  L:=L-1; 

END; 
IF  J  =  1  THEN  WRITE(PRINT)  ELSE 

IF  PRODUCTION! J)  (0  1  80)  = 

PRODUCTION! J-l) (01 80)  THEN 

BEGIN 

WRITE! BLANK)  ; 

WHILE  PRODUCTION!  J  )  C  K  |  1 )  =  "  '« 
DO  K:=  K+l; 

FOR  M:=0  UNTIL  N-5  DO 
WRITEON! BLANK) : 
WR] TEON!  "  |") : 
RIGHTPART:= 

PRODUCTION! J) (8CI80); 
WRITEON! BLANK, BLANKtRIGHTPART) ; 
END  ELSE 
BEGIN 

WRITE! BLANK) J 
WRITE(PPINT) ; 
END; 
NEXT:   END; 
END  ECHO; 

COMMENT   v**************  ********  «******:*********  ***••*  ****** 

PROCEDURE  SPECIALCHARACTER  CHECKS  THE  SYNTAX 
FOR  SPECIAL  CHARACTERS  SUCH  AS  *»/«  AND  -«  THE 
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CHARACTERS  ARE  THEN  CODED  ANO  STORED  IN  THE 
ARRAY  So 

*********  ********#*#j*:Cc*;>::#**>::S:*i;<:is*3***Jk**V  **>*******:  ; 

PROCEDURE  SPECIALCHARACTERUNTEGER  VALUE  I); 
BEGIN 

WRITE( BLANK); 

WRITE("SPECI AL  CHARACTER  ", 

"CHARACTER  CODE"  ); 
WRITE( BLANK)  ; 
INTFIELDSIZE:=  1; 

FOR  J:=  0  UNTIL  39  DO  S(J):=  "  " ; 
FOR  J:=  0  UNTIL  (X-l  )  DO 
BEGIN 

IF  (OPTION( J) (Oil)  =  "*") 
OR  (OPT  I  ON (J) (Oil)  =  "#")  THEN 
BEGiN 

IF  OPT  ION ( J)  (Ol 2)  =  "**"  THEN 

S  C  *  =  2  0  * 
IF  OPTION( J) ( 0  I  2 )  =  "*#"  THEN 

SC  *  —2 1  ' 
IF  OPTION* J)(0J2)  =  "##"  THEN 

S<~  -  -22  * 
IF  OPTION(J)  (CU)  =  "#*"  THEN 

S  C ' -23* 
IF  DECODE(OPTION( J ) ( 1 | i) )>=  240  THEN 
BEGIN 

SC:=  DECOOE(OPTION( J) (II 1) ) ; 

SC '  —    SC—  2 40  'i 

IF  OPT  I  ON ( J) (Oil)  =  H#"  THEN 

SC:=  SC+lO; 
END; 
S(SC)(1|2):=  OPTION(J) (C}2) ; 
S(SC) (01 1) :=  OPTIUN< J) <4| 1)  ; 
END: 

S  C  *  =  —  1 5 

FOR  J:='l  UNTIL  I  DO 

BEGIN 

RIGHTPART:=  PRODUCTION! J M 80 1 30)  ; 

FOR  K:  =  0  UNTIL  79  DO 

BEGIN 

TERMINAL:**  TRUE; 

IF  RIGHTPART (K| 1)  =  "<"  THEN 

TERMINALS  FALSE; 
IF  RIGHTPART(K| 1)  =  ">"  THEN 

TERMINAL:=  TRUE; 
IF  ( (DECODE(RIGHTPART(K| 1) ) )  <  193) 
AND  (RIGHTPART(K| 1)  -=  ">") 
AND  (RIGHTPART(K| 1 )  -i=  '■  ") 
AND  TERMINAL  THEN 
BEGIN 

FOR  M:=  0  UNTIL  39  DC 
IF  S(MXOTl)  = 

RIGHTPARTIKi 1)  THEN 
GO  TC  SKIP; 
SC:=  SC+l; 

WHILE   S(SC)  -•=  "    "  DO 
BEGIN 

WRITE ("      "»S(SCKO|i)  t 

", 

S(SC)<1|2),"    "f 

"USrR  DEFI 
"OPTION") ; 

sc:=  s:+i; 

END; 
S(SC) (0|  I)  :=  RIGHTPART (Kill; 
IF  SC  <  10  THEN 

L:=  SC  ELSE  L:=  SC-10; 
IF  SC  <  10  THEN 
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S(SC)  (111)  :--=  "*"  ELSE 
S(SC) (ill ):=  "#"; 

S(SC) (2| 1) :=  SNUM( L|l) ; 

WRITE ("      »,3(SC) (C| 1) , 

"      ",S(SO  (1 1?.) )  ; 

FOR  M:=  0  UNTIL  ( X-l )  DO 

IF  S(SC)(1|2)  =  OPTIGN(M) (012) 

THEN 

WRITEON("    USER  DEFINED", 
"  OPTION"); 
IF  SC  >  21  THEN 

WRITE("T03  MANY  SPECIAL'S 
"CHARACTERS") ; 
SKIP:   END; 
END; 
END; 
K :  =  SC  * 

FOR  M:  =  (SC+1)  UNTIL  38  DO 
BEGIN 

IF  S(M)  -=  "    "  THEN 
BEGIN 

WRITE("      'SS(M)  (Oil)  ,"         ", 

If  11 

S  (  M )  ( 1  |  2  )  ,  "    "  , 

"USER  OEFINED  OPTION'")? 
K:=  K+l; 

end; 
end; 

K  *  =  K  +  1  * 

INTFIELDSI ZE:=  14; 

WRITE( BLANK) ; 

WRITE* BLANK)  ; 

WRITE( "NUMBER  OF  SPECIAL  CHARACTERS  =  ", K )  ; 

END  SPECIALCHARACTER; 

PROCEDURE  RESERVEWORD  LOCATES  RESERVE  WORDS 
IN  THE  LANGUAGE  AND  STORES  THEM  IN  ARRAY  RW. 

PROCEDURE  RESERVEWORD( INTEGER  VALUE  I); 
BEGIN 

RWN:=0; 

FOR  J:=  0  UNTIL  X  DO 

BEGIN 

IF  (DEC0DE(0PTION(J) (Oil ) )  >=  193) 
AND  (DECODE(OPTION(  J  )  (  0  3.  )  )  <=  233) 
AND  (OPTION(J)  -=    "NO    ")  THEM 
BEGIN 

RW(RWN)  :=  OPT  I  ON ( J) ; 
RWN:=RWN+l; 

end; 
end; 
for  j:=  1  until  i  do 

BEGIN 

RIGHTPART:=  PRODUCT ION( J) (801 80)  ; 

K  '  — ^  * 

TERMINAL:*  TRUE; 

WHILE  K  <  79  DO 

BEGIN 

IF  RIGHTPART(K| 1)  =  "<"  THEN 

TERMINAL:*  FALSE; 
IF  RIGHTPART (K|l )  =  ">"  THEN 

TERMINAL :=  TRUE; 
SCODE:=  "  "; 
S  C : =  0  * 

WHILE  (( ( (DECODE(RIGHTPART(K|l) ) ) 
>=  19  3) 
AND  ((DECGOE(RIGHTPART(K!l  )  )  ) 
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<=  233) ) 
OR  (SC  >  0) ) 

AND  TERMINAL  DO 
BEGIN 

SCODE(SCll) :-  RIGHTPART (K ! 1 ) ; 

SC:=  SC+l; 

K  * =  K+ 1  " 

IF  RIGHT PART(KjI)  =  "<"  THEN 

TERMINAL:^  FALSE; 
IF  RIGHTPART(Kll)  =  "  "  THEN 

TERMINALS  FALSE; 
IF  K  >  79  THEN 
BEGIN 

K *  =  ~7Q " 

TERMINAL:-   FALSE; 

END; 
END; 
IF  SC  >  1  THEN 
BEGIN 

RW(RWN):=  SCODE; 
FOR  L:  =   0  UNTIL  (RWN-1)  DO 
IF  RW(RWN)  =  RW(L)  THEN 
RWN:  =  RWN-l; 
RWN:  =  RWN+l; 
END; 
K:=    K  +  l; 
END; 
END; 
END  RESERVEWORD; 

CCMMENT   ************************************************* 

PROCEDURE  WCRDNUM3ER  ASSIGNS  THE  NUMBER  CODE 
TO  THE  RESERVE  WORDS  AND  CHECKS  FOR  CONFLICT- 
ING NUMBER  COOES. 

■fc-i.  v-  i--,L-i-  -'.iiiii  ±±  iiiiiii:**^^^^  ^^c4:********^**3p******  ? 

PROCEDURE  W0RDNUM8ER( INTEGER  I); 
FOR  J:=  0  UNTIL  1-1  DO 
BEGIN 

WRITEC"       " ); 

K  *  =  0  * 

WHILE' RW( J)  (K I  1 )  -*=  "  ■•  DO 

BEGIN 

WRITEON(RWU)  (KID); 
K:=  K+l; 
END; 
M:=  K; 

WHILE  M  <  2C  DC 
BEGIN 

WRITE0N1"  ")  J 
M:  =    M+l; 
END] 
FOR  L: =  0  UNTIL  (K-l  )  DO 
BEGIN 

M:=0; 

WHILE    RWUMLll)     -»=    ALPHA(M|1)    DO 

BEGIN 

M:=    M+l; 

IF    M    >    25    THEN 

BEGIN 

WRITE( BLANK) 5 

WRITE ("CHARACTER       « , RW< J ) ( L 1 1 ) , 

»       DOES    NOT    CODE"): 
WRITE(BLANK) ; 
GO    TO    HOP; 
END; 
END; 
RW( J) ( L+80| 1) :=    ALPHANUMBER(^ll) ; 
WRITEON(ALPHANUMBER(M| 1) )% 
HOP:       END; 
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FOR  N:  =  ('    UNTIL  (X-l)  DO 

IF  RW(J)(0|5)  *  GPTIUN(N)  THEN 

WRITEONC    USER  DEFINED  OPTION"); 
FOR  N:=  0  UNTIL  (J-l)  DO 
BEGIN 

IF  RW(N)(80|8G)  =  RW(J)(80|8G)  THEN 
BEGIN 

WRITE (BLANK) J 

WRITE ("NUMBER  CODE  CONFLICT"); 

WRITE(BLANK) ; 

WRITE(BLANK) ; 

K  ;  —(\  • 

WHILE  RW(N)(K|1)  -  =  "  "  DO 
BEGIN 

WRITEON(RW(N) (K| 1 ) ) ; 

K:  =  K+l; 

END; 
WRITE(BLANK) ; 

k  •  =  n  • 

WHILE  RW<N) (30+Kll)  -=  »  "  DO 
BEGIN 

WRITEON(RW(N) (8G+KJ1 ) >; 

K:  =   K+l; 

END; 
WRITE(BLANK) J 
K  *  =0  * 

WHILE  RW(J)(K|1)  -.=  "  "  DO 
BEGIN 

WRITEONvRW(J) (K| 1) ) ; 

K:  =  K+l; 

END; 
WRITE(BLANK) ; 
K  J  -0  * 

WHILE  RVJ(J)  (80  +  K|  1)  -»=  "  "  DO 
BEGIN 

WRITEON(RW(J)(80+K| 1 ) ) ; 

\C  r  =  K  -»•  i  l 

END; 
WRITE( BLANK) : 
WRITE (BLANK) ; 
END; 
END; 
END  WCRDNUMBER; 

CCMM  ENT   ************************************************* 

PROCEDURE  ANALYZE  CALLS  SUBROUTINES  TC  PER- 
FORM THE  ANALYSIS  OF  THE  SYNTAX, 

PROCEDURE  ANALYZE; 
BEGIN 

WRITE(  BLANK)  ; 
WRITE(  [-LANK); 
WRITE( "PRODUCT  IONS  IN  BNF"  )  ; 

WRI  T  E  (  ***********  J*******************!} •.  ^^c-;^^^^:  jpH  f 

WRITE( BLANK) ; 

ECHO(PNUM) ; 

OPTIONS; 

WRITE ( BLANK) ; 

WRITC( BLANK) ; 

WRITE( BLANK) ; 

WRITE( "SPECIAL  CHARACTER  CODING"); 

WRI  TE  (  ,»^;:<V^*^>^t-*X.-i*^**:5l;^*:^*va5J()(:**^*)i:******"  t 

n***********************"  )   ; 

SPECIALCHARACTER(PIMUM)  ; 

RESEPVEWORD(PNUM) ; 

WRITE( BLANK); 

WRITE( BLANK) ; 

WRITE("NUMBER    CODING    OF    RESERVE    WORDS"); 
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WRITE  (  "**#*******#**>}:*****#************#**#*••, 

WRITE( BLANK) ; 

WRITE( "RESERVE  WORD  NUMBER  CODE"); 

WRITE( BLANK) ; 

WORCNU.MBER(RWN)  ; 

RWN:=  RWN-l; 

WR1TE( BLANK) ; 

WRITE  (  "NUMBER  OF  RESERVE  WORDS  =  «»,FWN); 

END  ANALYZE; 

COMMENT   ###****##***##**##******#**************#*#***#**# 

MAIN  PROGRAM  BEGINS  HERE. 

WHILE  MOREPRODUCTIONS  DO 
BEGIN 

PEADCARD(SYNTAX); 

IF  SYNTAX(0|3)  =  "EGG"  THEN 
BEGIN 

MOREWORK:=  FALSE; 

MOREPROUUCTIONS:=  FALSE; 

ANALYZE; 

END  ELSE 
LOAD; 

END  MOREPRODUCTIONS; 
END  MOREWORK; 
END. 
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********  ************************  ********* 

*  * 

*  TRANSLATOR  * 

*  * 

*  *  *  *  *  *  *  *  *  *  *  *  3{c  *  A  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

BEGIN 

INTEGER  I , J,K,L,M,SC,RWN,LINE; 

INTEGER  AL,  EC,  NU ,  SP,  VA,  QA,  RE; 

STRING(Su)  INPUT,  OUTPUT,  WORD,  HOLD; 

STRING(52)    ALPHANUM3ER; 

STRING(26)    ABC; 

STRING(6)  ALPHA,  EOL,  NUMB,  SPACE,  VAR,  SPWORD,  QALPHA; 

STRING(6)  RESTART; 

STRING(2)  SWORD; 

STRING(l)  BLANK; 

LOGICAL  ERROR; 

COMMENT    *********************  ***************  ************* 

EXECUTION  BEGINS  HERE* 

*********************£*#******;!<**£**:{<**$**  $*****  j 

READ(SC)  ; 

RE  AD (RUN)  ; 

BLANK :=  "  "; 

F  R  R  P  R  "  =  FAI ^f ' 

A LPHANUM3ER:='"2 122 2 331 3 233444 546  54  5 5 5 6646566777379"; 

ALPHANUM3ER<  36  |  16)  :=    "  £73889979399<>rJ#"  ; 

ABC:=  "AdCDEFGHlJKLMNCPRSTUVWXYQZ"; 

BEGIN 

STRING(1601  array  R'afcr.:  :rwn)  : 
5TRINGC3I  ARRAY  S(0: ' 3C ! : 

CO  MM  ENT   ************************  ************  #************ 

PROCEDURE  ERROW  PRINTS  OUTPUT  ERROR  MESSAGES 
AND  POINTS  OUT  THE  ERROR  LOCATION  IN  THE  INPUT 
STREAMo 

v **************** v ******************** **********; 

PROCEDURE  ERROW( INTEGER  VALUE  A); 
BEGIN 

LINE:=  LINE-l; 
ERROR: =  TRUE; 

WRITE("  OUTPUT  TO  THIS  POINT"); 
WRITE(OUTPUT) ; 
IF  (IMPUT(All)  -*=  »*") 
AND  (INPUT(Ail)  -t=  "#")  THEN 
BEGIN 

HOLD:=    "    "; 

L '  —^ ; 

WHILE    DECODE(  INPUT(A|1)  )    >    239    DO 
BEGIN 

HOLD(L|l):=    INPUT(A|1); 

L:=    L+l; 

A:=    A+l; 

END; 
WRITEC  WORD  "  )  ; 
L  '•  ~0 * 

WHILE  HOLD(Lll)  -«=  "  "  DO 
BEGIN 

WRITEON(HOLD(L| 1 ) ) ; 

L:=  L+l; 

END; 
WRITEONC  DOES  NOT  DECODE"); 
END 
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ELSE 
BEGIN 

WRITE <"  SPECIAL  CHARACTER  "); 

WRITEON( INPUTt A | 2 ) ) ; 

WRITEGNt"  DOES  NOT  DECODE")^ 
END; 
END  ERROW; 

COMMENT    ************************************************* 

PROCEDURE  OPTIONS  READS  IN  USER  DEFINED  PARA- 
METERS AND  DETERMINES  THEIR  CHARACTER  LENGTH. 

*JC  ^  ^  *£*  ^r  'i'  ^  ~"  -^  ^  ^  ^i*  *£  ^r  ^t*  ^r  ^  ^  ^*  -^  *n  *t»  *!'  ^  ^^  3^  ^  ^  ^1  "^X  ^C  T$Z  ^  ^t  2jt  %  "%C  5JX  ^C  SyC~)*  -fc  -r*  'r  *j*  -t*  V  • 

PROCEDURE  OPTIONS; 
BEGIN 

READ(SPACE) ; 
READ(EOL) ; 
READ (NUMB) ; 
READ(VAR) ; 
READ( ALPHA) ; 
READ (Q ALPHA); 
READ(RESTART) ; 


SP 
WH 
SP 
EO 
WH 
EO 
NU 
WH 
NU 
VA 
WH 

\/A 

AL 
WH 
AL 
QA 
WH 
DA 
RE 
WH 
RE 


=(; 

LE  SPACE(SPll) 

=  sp-1; 


"  DO  SP:  =  SP+1; 


LE  EOL(EOll)  -=  "  "  DO  £0:=  EO+1; 
=  EO-l; 

=0; 

LE  NUMB(NUll)  -»=  "  "  DO  NU:=  NU+.l ; 

=  NU-l; 

=0; 

LE  VAR(VA|1)  -i=  »  "  DO  VA:=  VA  +  1  ; 

=  \/A-1  ! 

Lh' ALPHA(  AL  j  i  )  -•=  !l  H  DO  AL:=  AL+1  ; 

=  AL-i; 

=0; 

LE  QALPHA(QAll)  -»=  "  "  DG  QA:=  QA  +  1 ; 

=  QA-l; 


LE  RE  START  (RE  |  1  )  -.=  "  " 

=  RE-l; 


CGMMENT 


DO  RE:-  RE+l; 
END  OPTIONS; 

;,x***********:!c5£;!c  *:***:********;:£**************  ******* 

PROCEDURE  SCAN2  DECODES  RESERVED  WCRDSo 

^ciic********************^* ******  *^<* ************:£**  ; 


PROCEDURE  SCAN2; 
BEGIN 

WORD:=  "  »; 
L :  =€ 


WHILE  OECODEf INPUT(K|1) )  >  240  DO 
BEGIN 

WORD(Lll) :=  INPUT (K |1 ) ; 

K:  =  K+l; 

L:=  L+l; 

END; 

J;  -Q  • 

WHILE  J  <=  RWN  DO 
BEGIN 

IF  WORD  =  RW(J)(80|30)  THEN 
BEGIN 

HOLD:=  "  "; 

M  :  =  0  ; 

WHILE  RW(J)  (Mil)  --=  "  "  DO 

BEGIN 
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OUT PUT < I  111 :=  RW( J)  (Mil); 
HOLD:=  RW(JMMjl); 
M:  =  M+l; 
l:=  I+l; 

END; 
GC  TO  NEXT; 
END; 

J:=  J+l; 

if  j  >  rwn  then 

BEGIN 

L:=0; 

WHILE  WORD(Ll  1  )  -»=  "  "  DG 

BEGIN 

L:=  L+l; 
K:  =  K-l; 
END; 

WRITE (" INVALID  RESERVE  WORD " )  ; 

ERRQW(K) ; 
K:=7?; 
END; 
END; 
NEXT:   END  SCAN2; 

COMMENT   ************************  **********  *************** 

PROCEDURE  SCAN1  DECODES  SPECIAL  CHARACTERS., 

PROCEDURE  SCANl; 
BEGIN 

SWCRD:=  INPUT(K|2); 
L?=C ; 

WHILE  SWORD  -.=  S(  L  )  (  1  |  2  )  DO 

BEGIN 

L :=  l  +1 : 

T  c  :   -»  c  r  J  H  EN 

BEGIN' 

WRITEC INVALID  SPECIAL  ", 

••CHARACTER ")  ; 

ERROW(K) ; 
K:=79; 
GO  TO  NEXT; 
END; 
END; 
OUTPUT  (  I  |l)  :  =  S(LMCll); 
K:=  K+2; 
I :  =  J  +  1  * 
NEXT:   END  SCANl; 

COMMENT   ************************************************* 

PROCEDURE  QALPHABET  DECODES  QUOTED  STRINGSo 
USER  DEFINED  PARAMETERS  SPACE  AND  NUMBER  AND 
ALL  SPECIAL  CHARACTERS  ARE  DECODED  AS  THOUGH 
THEY  WERE  NOT  QUOTED* 

PROCEDURE  QALPHABET; 
BEGIN 

NEXT:   IF  K  >  78  THEN  GO  TO  FINIS; 
SPWORD:=  "  "5 

j:=0; 

L  :  =  K  * 

WHILE  J  <=  QA  DO 

BEGIN 

SPWORDt J| 1) :=  IN?UT{Lf 1) ; 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TO  FINIS; 

END; 
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WHILE  SPWORD  -•=  OALPHA  DG 
BEGIN 

SPWORD :=  «  "; 

J:=0; 

I  j=  ^  • 

WHlLE'j  <=  SP  DO 
BEGIN 

SPWORD(  J|l)  :=  INPUT(Ul); 

J:=  J  +  l; 

L:  =  L+l; 

IF  L  >  78  THEN  GO  TO  FINIS; 

END; 
IF  SPWORD  =  SPACE  THEN 
BEGIN 

K:  =  K+SP+l; 

I  :=  1  +  15 

GO  TO  NEXT; 

END; 

SPWORD :=  "  " ; 

J:=0; 
i  •  —  i>  • 

WHILE'j  <=  NU  DO 
BEGIN 

SPWORD( J|l) :=  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TO  FINIS; 

END; 
IF  SPWORD  =  NUMB  THEN 
BEGIN 

K:  =  K+l; 

WHILE  DECODE( INPUT(K] 1) )  >  239  DO 

BEGIN 

OUTPUT( I |  1):=  INPUT(K|1) ; 
K:=  K+l; 
I :=  T+i : 

c  r.  i  r.  • 

GO  TO  next; 

END; 
IF(  iNPUT(Kll)  =  "#") 
OR  ( INPUT(Kll)  =  "$")  THEN 
BEGIN 

SCANl; 
GC  TO  NEXT; 
END; 
M:=0; 
L :  =0 ; 

WHILE  INPUT(K|2)  -«=  ALPHANUMBER ( L I  2 )  DO 
BEGIN 

M:=  M+l; 

L:=  L+2; 

IF  L  =  52  THEN 

BEGIN 

WRITEC" INVALID  GUOTE  ", 

"CHARACTER ") ; 

ERROW(K) ; 
K ! — 79  * 

go  tg'next; 
END; 

END; 
OUTPUTU  ID  :=  ABC(M|  1)  ; 
I  :  =  I  + 1 ; 
K:  =  K+2; 
GO  TO  NEXT; 
END; 

IF  SPWORD  =  QALPHA  THEN 
BEGIN 

K:  =  K+OA+l; 

FOR  J:=  0  UNTIL  SC  DO 

IF  SUM1I2)  =  SPW0RD(0|2)  THEN 

BEGIN 

OUTPUT( I | 1) :=  S( J ) ( C  I  1 ) ; 


53 


I:=  I+i; 
END; 
END; 
FINIS:  END  QALPHABET; 

COMMENT   ************************************************* 

PROCEDURE  ALPHABET  DECODES  CHARACTER  STRINGSa 
USER  DEFINED  PARAMETERS  SPACE  AND  NUMBER  AND 
ALL  SPECIAL  CHARACTERS  ARE  DECODED  AS  THOUGH 
THEY  WERE  NOT  CHARACTER  STRINGS. 

PROCEDURE  ALPHABET; 
BEGIN 

NEXT:   IF  K  >  78  THEN  GO  TO  FINIS; 

SPWCRD:=  "  "; 

J:=C  ; 

L : =  K  * 

WHILE  J  <=  AL  DO 

BEGIN 

SPWCRDUI  1)  :=  INPUTUll  ); 

J:=  J+l; 

L:  =  L+l; 

IF  L  >  78  THEN  GO  TO  FINIS; 

END; 
WHILE  SPWORD  -*=  ALPHA  DO 
BEGIN 

SPWPRD:=  "  "; 

J:=C  ; 

L  :  =  K  * 

WHlLE'j  <=  SP  DO 

BEGIN 

SPWORD  (  J  ID  :*  INPUT  (Hi  )  ; 
J:=  J  +  i  : 

L:    L+l? 

IF  L  >  78  THEN  GO  TO  FINIS; 

END; 
IF  SPWCRD  =  SPACE  THEN 
BEGIN 

K:  =  K+SP+1; 

I:-  I+l; 

GO  TO  NEXT; 

END; 
SPWORD :=  "  "; 
J:  =  0; 
L  :  =  K  " 

WHILE' J  <=  NU  DO 
BEGIN 

SPWORD(Jll) :=  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TO  FINIS; 

END; 
IF  SPWORD  =  NUMB  THEN 
BEGIN 

K  *  =  K+ 1  * 

WHILE  DECODE*  INPUT(K| D  )  >  239  DO 

BEGIN 

OUT  PUT ( I |1) :=  INPUT (K |1); 
K:=  K+l; 
l:=  I+l; 
END; 

GO  TO  NEXT; 

END; 
IF( INPUT(Kll)  =  "*") 
OR  (  INPUT(  K|D  =  •'#"}  THEN 
BEGIN 

SCANl; 

GG  TO  NEXT; 
END; 
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M:=0; 

L  :  =  0  * 

WHILE  INPUT(K|2)  -=  ALPHANUMB ER ( L  I  2 )  DO 

BEGIN 

M:=  M+l; 

L:=  L+2; 

IF  L  =  52  THEN 

BEGIN 

WRITE (" INVALID  ALPHA  ", 

"CHARACTER ") ; 

ERROW(K) ; 
K:=79; 
GO  TO  NEXT; 
END; 
END? 
OUTPUT (I  I  1) :=  ABC(MI 1) ; 
I:=  i+i; 
K:=  K+2; 
GO  TO  NEXT; 
END; 

IF  SPWORD  =  ALPHA  THEN 
BEGIN 

K:=  K+AL+l; 

FOR  J:-  0  UNTIL  SC  DO 

IF  S  C J ) ( 1 1  2 )  =  SPWORD(0|2)  THEN 

BEGIN 

OUTPUT( I  |1) :=  S(J) (C|l ) ; 
I:=  I+l; 
END; 
end; 
FINIS:  END  ALPHABET; 

PROCEDURE  SCAN  ACCEPTS  A  SINGLE  LINE  OF  INPUT 
AND  SCANS  TT  CHARACTER  BY  CHARACTER©  USER 

r>  r  r  t  u |  p  Q     .^:.;»rTC:':   ,\  ,\  n  OPTIONS  kti  h     0(-  CO  f  >  E  D  B  T 

SCAN %AND  OTHER  ROUTINES  ARE  CAlLEC  TC  PERFORM 
THE  DECODING  OF  RESERVE  WORDS  AND  SYNTAX 
DEFINED  SPECIAL  CHARACTERS*. 

PROCEDURE  SCAN; 

BEGIN 

OUTPUT :=  "  "; 

I:=0; 

K  :  =0  * 

WHILE  K  <  79  00 

BEGIN 

IF  INPUT(Kll)  =  «  "  THEN 

BEGIN 

i/  •  —  (/  +  ■}  « 

IF  K  =""79  THEN  GO  TO  NEXT; 

I:  =  K; 

END 

ELSE 

BEGIN 

AGAIN:   SPWORD: =  "  " ; 

J:  =  0; 
i  •  —  i/  • 

WHILE'j  <=  SP  DO 
BEGIN 

SPW0RD(J|1):=  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TC  NEXT; 

END; 
IF  SPWORD  =  SPACE  THEN 
BEGIN 

OUT  PUT  (  I  11)  :=  "  ••; 

K:=  K  +  SP-H; 
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I:=  1+1; 

GO  TO  AGAIN; 

END; 

SPWORD :=  "  "; 

J:=0; 
j  •  =  i>  • 

WHILE'j  <=  EC  DO 
BEGIN 

SPWORD( J| 1) :=  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TC  NEXT; 

END; 
IF  SPWORD  =  EOL  THEN 
BEGIN 

K:=79; 

GO  TO  NEXT; 

END; 
SPWORD :=  "  "; 
J:=0; 

1  *  =  K  ' 

WHILE'j  <=  NU  DO 

BEGIN 

SPWORD( J | 1 ) : =  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TC  NEXT; 

end; 
IF  SPWORD  =  NUMB  THEN 
BEGIN 

K  *  =  K  + 1  * 

WHILE  CECODE(  INPUT<K|D>>239  DO 

BEGIN 

OUTPUT(  I  |1)  :=  INPUTtK  |D  ; 
K:  =  K+l; 
l:=  T+l: 

h-  M  Q  J 

GO  TO  AGAIN; 

END; 
SPWORD:=  "  "; 
J:=0; 

L  *  =  K  " 

WHILE'j  <=  VA  DO 

BEGIN 

SPWGRDt J|l) :=  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TC  NEXT; 

END; 
IF  SPWORD  =  VAR  THEN 
BEGIN 

OUTPUT ( I  I  1) :=  "V"; 

l:=  l+l; 

K:=  K+VA+l; 

WHILE  DECODE( INPUT(Kll) )>239  DO 

BEGIN 

OUTPUT (I |D :=  INPUT (K|l ) ; 
K:=  K+l; 
l:=  l+l; 
END; 

GO  TO  AGAIN; 

END; 
SPWORD:=  «  »; 

J:=0; 

i  •  —  [>  • 

WHILt'j  <=  AL  DO 
BEGIN 

SPWORD(J| 1) :=  INPUT(Lll); 

J:=  J+l; 

L:=  L+l; 

IF  L  >  78  THEN  GO  TC  NEXT; 

END; 
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IF  SPWORD  =  ALPHA  THEN 
BEGIN 

FOR  j:=  0  UNTIL  SC  DO 

IF  S(J)(1|2)  =  SPWORD(0|2)  THEN 

BEGIN 

OUTPUTd  |1)  :=  S(J)  (0|D  ; 

l:=  I+l; 

END; 
K:=  K+AL+l; 
ALPHA6ET; 
IF  K  >  78  THEN 

GO  TO  NEXT 
ELSE 

GO  TO  AGAIN; 

END; 

SPWORD:=  "  "; 

J:=0; 
I  •  =  i>  • 

WHILE'j<=  QA  DO 
BEGIN 

SPWORD( J |1) :=  !NPUT(L|D; 
J:=  J+l; 
L:=  L+l; 

IF  L  >  78  THEN  GO  TG  NEXT; 
END; 
IF  SPWORD  =  QALPHA  THEN 
BEGIN 

FOR  J:=  0  UNTIL  SC  DO 

IF  S(J)(ll2)  =  SPWORD(0|2)  THEN 

BEGIN 

OUTPUT  (  I  ID  :=  S  (  J  )  (  C  I  1 )  ; 
I:  =  I+l; 
END; 
K:  =  K+QA+1; 
©ALPHABET; 
if  K  W8  THEN 
r  ( >  t  n  mcyt 

ELSE 

GO  TO  AGAIN; 
END; 
SPWORD:=  •■  "; 
J:=0; 
L  '  -    K  i 

WHILE'j  <=  RE  DO 
BEGIN 

SPWORD  (  J  |  1  )  :=  INPUTUl  1)  ; 
J:=  J+l; 
L:=  L+l; 

IF  L  >  78  THEN  GO  TC  NEXT; 
END; 
IF  SPWORD  =  RESTART  THEN 
BEGIN 

LINE:=  LINE-l; 
GO  TC  DESTROY; 
END; 
IF  INPUT(Kll)  =  "*"  THEN  SCAN1 
ELSE 

IF  INPUT(Kjl)  =  "#"  THEN  SCAN1 
ELSE 

SCAN2; 
END; 
END; 
NEXT:   IF  -.ERROR  THEN 
BEGIN 

WRITE(GUTPUT) ; 
INTFIELDSIZE:=4; 

FOR  I:=  1  UNTIL  15  DO  WRITEONC BLANK) ; 
WRITEON(LINE) ; 
END; 
ERROR: =  FALSE; 
DESTROY:   END  SCAN; 
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COMMENT      ************************************************* 
MAIN    PROGRAM    BEGINS    HERE. 

************************************************  ; 

OPTIONS; 

FOR    l:=   0    UNTIL    RWN    DO 

BEGIN 

READCARD(RW(I ) (Gj  80)  )  ; 

READCARD(RW(I )  ( 8C  |  RO  )  )  ; 

END; 
FOR    l:=    0    UNTIL     (SC-1)     DO 

PEAD(S( I) (0  |3)  )  ; 
LINE:=0; 

READCARDC INPUT)  ; 
WRITE(BLANK) ; 
WRITE (BLANK  )  ; 
WRITE (INPUT)  ; 

WHILE    INPUT(0|3)    -.=    "EOP"    DO 
BEGIN 

OUTPUT  :=    "    "; 

LINE:=    LINE+l; 

IF     INPUT    =    OUTPUT    THEN 

BEGIN 

WRITE (OUTPUT) ; 

INTFIELCSIZE:=4; 

FOR    I:=    1    UNTIL    15    DO    WRITEON ( BLANK ) ; 

WRITEON(LINE) ; 

END 

ELSE 

SCAN; 

READCARD(INPUT) ; 

WRITE ( BLANK) ; 

WRITE( BLANK) ; 

WRITE'  Bt  ANK  \  : 

i  i  *"■»   ',    TT    /    T   K  :  O  C  •  T    '.     * 
ii  i  \  j.    ILUni    w.     i     y 

END; 
END; 
END, 
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